i4_swap Subroutine

subroutine i4_swap(i, j)

************80

I4_SWAP swaps two I4's.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=4)				::	i
integer(kind=4)				::	j

Variables

Type	Visibility	Attributes		Name		Initial
integer(kind=4),	public		::	k